home *** CD-ROM | disk | FTP | other *** search
- ## quote_test.tg
- # Part of the standard regression tests, this script tests the quote processing.
- #
- {
- -start
- -name quote_test
-
- -action -print "This string should contain breakchars ',' and extra spaces ' '."
- -action -print This string should not contain breakchars ',' and extra spaces ' '.
- -action -print "ill formed with leading double quote ',' ' '.
- -action -print ill formed with trailing double quote ',' ' '."
- -action -print ill formed with embedded double quote " ',' ' '.
- -action -print contains ' 'a' ' "A' 'substring" done.
- -action -print ""
- -action -print "
- -action -print ".
- -action -print ."
- -action -print "** Done! **"
-
- # -action -inc 0 0 0 1
- }
-
-
-